home *** CD-ROM | disk | FTP | other *** search
/ Software of the Month Cl…Business) - New Member 21 / Software of the Month Club XXI - New Member Business.ISO / mac / Business / Financial Portfolio v4.1 ƒ / Financial Portfolio v4.1 / Financial Portfolio v4.1.rsrc / LENS_220_Bogus Cards.bin < prev    next >
Text File  |  1995-11-23  |  2KB  |  58 lines
  1. ItemType: WIND
  2. Rect: 170,249,492,459
  3. AutoSize: FALSE
  4. Style: Windoid
  5. HasTitleBar: TRUE
  6. HasZoomBox: TRUE
  7. HasCloseBox: TRUE
  8. HasGrowBox: FALSE
  9. MinSize: 322,1
  10. MaxSize: 322,210
  11. Name: Bogus Cards
  12. Params: i5_Text┬i0_TopLeft
  13.  
  14. ItemType: PUSH
  15. Rect: 233,161,305,178
  16. TextFont: Geneva
  17. TextSize: 10
  18. Name: Done
  19. DefaultItem: TRUE
  20. AutoClose: TRUE
  21.  
  22. ItemType: PUSH
  23. Rect: 229,129,309,146
  24. TextFont: Geneva
  25. TextSize: 10
  26. Name: Delete all
  27. Script: --on mouseUp  wdID,wdName,objNo,objName,objValue┬get wsGet(wdID,"list","Text")┬put it into theList┬if theList is not empty then┬  lock screen┬  set lockmessages to true┬  repeat with x=1 to the number of lines of theList┬    put line x of theList into theCard┬    do "go "&theCard┬    if "card id" is in the name of this cd then -- double-check it's a bogus card┬      domenu "Delete Card"┬    end if┬  end repeat┬  wsSend wdID,"Bogus","Close"┬  go cd "Ñtitle"┬  unlock screen with visual iris close fast┬end if┬--end mouseUp┬┬
  28.  
  29. ItemType: TEXT
  30. Rect: 7,4,314,97
  31. TextFont: Geneva
  32. TextSize: 10
  33. AutoSize: FALSE
  34. Name: Note
  35. Text: The cards with the IDs listed below were created improperly, probably with HyperCard╒s menubar (normally hidden) or keyboard equivalents and not the stack╒s creation tools. These cards should be deleted.┬┬Click ╥Delete all╙ to automatically delete these bogus cards; click on a card ID to inspect the card before deleting it.
  36.  
  37. ItemType: PUSH
  38. Rect: 229,101,309,118
  39. TextFont: Geneva
  40. TextSize: 10
  41. Disabled: TRUE
  42. Name: Delete this
  43. Script: --on mouseUp  wdID,wdName,objNo,objName,objValue┬if "card id" is in the name of this cd then -- double-check it's a bogus card┬  lock screen┬  set lockmessages to true┬  domenu "Delete Card"┬  wsSet wdID,"list","TextOfSelection", ""┬  wsSet wdID,"4","Disabled", "TRUE"┬  go cd "Ñtitle"┬  unlock screen with  visual iris close fast┬end if┬--end mouseUp
  44.  
  45. ItemType: LIST
  46. Rect: 45,101,216,182
  47. AutoSize: FALSE
  48. Name: list
  49. Logic: Single
  50. Text: 
  51. Script: --on mouseUp  wdID,wdName,objNo,objName,objValue┬get wsGet(wdID,"list","SelectionText")┬put it into theCard┬if theCard is not empty then┬  wsSet wdID,"Delete this","Disabled", "false"┬  visual iris open fast┬  do "go "&theCard┬else┬  wsSet wdID,"Delete this","Disabled", "true"┬end if┬--end mouseUp┬
  52.  
  53. ItemType: PUSH
  54. Rect: 77,187,174,204
  55. TextFont: Geneva
  56. TextSize: 10
  57. Name: Go to Title card
  58. Script: --on mouseUp  wdID,wdName,objNo,objName,objValue┬set lockmessages to true┬visual iris close fast┬go cd "Ñtitle"┬--end mouseUp